home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / pc / cdfactor / hcfactor / hcode.exe / hcode.DXR / 00040_play mode.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  387 b   |  16 lines
  1. on exitFrame
  2.   global gplaystatus, gNextPlay, gNewEnter, gAfterClick, onIBM
  3.   set gNewEnter to 1
  4.   set gAfterClick to 0
  5.   if count(gNextPlay) = 3 then
  6.     donewchapter(getAt(gNextPlay, 1), getAt(gNextPlay, 2), getAt(gNextPlay, 3))
  7.     set gplaystatus to getAt(gNextPlay, 3)
  8.     set gNextPlay to []
  9.   end if
  10.   if onIBM then
  11.     go(the frame + 2)
  12.   else
  13.     go(the frame + 1)
  14.   end if
  15. end
  16.